home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 2 / Amoszine 2.adf / andrew_smith_source / Band.AMOS / Band.amosSourceCode
AMOS Source Code  |  1992-02-26  |  444b  |  33 lines
  1. ' Band draw
  2.  
  3. ' Anchor first point 
  4.  
  5. Repeat 
  6.    X1=X Screen(X Mouse)
  7.    Y1=Y Screen(Y Mouse)
  8. Until Mouse Click=1
  9.  
  10. STX=X1 : STY=Y1
  11.  
  12. Gr Locate X1,Y1
  13.  
  14. Gr Writing 2
  15.  
  16. Repeat 
  17.  
  18.    X2=X Screen(X Mouse)
  19.    Y2=Y Screen(Y Mouse)
  20.  
  21.    Draw X1,Y1 To X2,Y2
  22.    Wait Vbl 
  23.    Draw X1,Y1 To X2,Y2
  24.  
  25.    If Mouse Click=1
  26.       Gr Writing 0
  27.       Draw X1,Y1 To X2,Y2
  28.       X1=X2 : Y1=Y2
  29.       Exit If X2=STX and Y2=STY
  30.       Gr Writing 2
  31.    End If 
  32.  
  33. Until Mouse Key=2